home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 3 / CU Amiga Magazine's Super CD-ROM 03 (1996)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1996-09].iso / misc / readers_utils / asmextras / wbtofront.s < prev    next >
Text File  |  1992-09-02  |  667b  |  41 lines
  1. *Wb To Front
  2. *By Mark Retallack
  3.  
  4. * ensure case dependent and debug
  5.     opt    c+,d+
  6.  
  7. * firstly get the required constants and macros
  8.  
  9.     include    intuition/intuition_lib.i
  10.     include    exec/exec_lib.i
  11.  
  12. *open the intuition library
  13.     lea    intname(pc),a1
  14.     moveq    #0,d0                dont care which version
  15.     CALLEXEC OpenLibrary
  16.     tst.l    d0
  17.     beq    goawayfast            if didnt open
  18.  
  19.     move.l    d0,_IntuitionBase        store lib pointer
  20.  
  21. *call command
  22.  
  23.         CALLINT WBenchToFront
  24.         
  25.  
  26. *close Intuition library
  27.     move.l    _IntuitionBase,a1
  28.     CALLEXEC CloseLibrary
  29.     
  30.     
  31. goawayfast
  32.     moveq    #0,d0
  33.     rts
  34.  
  35.  
  36. * strings here
  37. intname        INTNAME                name of intuition lib
  38.  
  39.  
  40. * variables here
  41. _IntuitionBase    dc.l    0            for int library